home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 136 / 136.d81 / b.font manager (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  107 lines
  1. 10 poke52,32:poke56,32:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 40 sys57812"menubox c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 50 poke53280,0:poke53281,0:print"[147][154]"chr$(14)
  5. 60 mt=49152:fm=15052:rg=829:sysmt+6,0,39,0,24,2
  6. 70 x1=1:x2=38:y1=1:y2=23:c=5:z=0
  7. 80 fori=1to9:sysmt+3,x1,x2,y1,y2,219,c
  8. 90 c=c+1:x1=x1+1:x2=x2-1:y1=y1+1:y2=y2-1:next:sysmt+3,x1+1,x2+1,y1+1,y2+1,219,5
  9. 100 sysmt+3,x1,x2,y1,y2,160,0
  10. 110 rw=11:cl=17:gosub920:print"[204]oading"
  11. 120 rw=13:cl=14:gosub920:print"[198]ont [205]anager![154]"
  12. 130 sys57812"font manager",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  13. 140 rem  [ main ]
  14. 150 sysfm+z
  15. 160 s=peek(rg):z=peek(rg+1):d=peek(rg+2)
  16. 170 ondgoto200,200,200,320,610,40000,190
  17. 180 goto150
  18. 190 poke53280,14:poke53281,6:poke53272,23:print"[147][154]";:end
  19. 200 rem [ instruct ]
  20. 202 in$="i.fm"+str$(d)
  21. 205 open15,dv,15,"r0:"+in$+"="+in$:input#15,er:close15
  22. 207 ifer=63then250
  23. 210 sysmt+6,0,39,10,13,3
  24. 220 rw=11:cl=3:gosub920:print"[201]nsert the [198]ont [205]anager disk into"
  25. 230 rw=12:gosub920:print"the drive and press [210][197][212][213][210][206]..."
  26. 240 gosub890:print"[147]":goto205
  27. 250 sysmt+63,0
  28. 260 sysmt+27,in$,dv,32768
  29. 270 sysmt+6,0,39,0,24,6
  30. 280 gosub860
  31. 290 sysmt+48,32768:n=f%-1
  32. 300 sysmt+57,1,38,1,21,0,5,13,13,1,n,0
  33. 310 goto150
  34. 320 rem [ save ]
  35. 330 sysmt+6,0,39,0,24,14
  36. 340 rw=1:cl=9:gosub920
  37. 350 q$="[215][207][210][203]":ifsthenq$="[193][213][216]."
  38. 360 print"** [211][193][214][197] "q$" [198][207][206][212] **"
  39. 370 rw=4:gosub920:print"[198][201][204][197][206][193][205][197]? ";
  40. 380 sysmt+66,14,3,14,""
  41. 390 ifw$=""then570
  42. 400 fl$="f."+w$
  43. 410 gosub920:print"[211][193][214][201][206][199]  [154]f."
  44. 420 print"[212]o test this font, exit the [198]ont"
  45. 430 print"[205]anager to [194][193][211][201][195]. [204]oad the font"
  46. 440 print"using the [204][207][193][196] [211]ystem [195]all:"
  47. 450 print"[153]sys57812"chr$(34)fl$chr$(34)",dv,0"
  48. 460 print"poke780,0:poke781,0:poke782,[154]page"
  49. 470 print"[153]sys65493"
  50. 480 print"[154][204]ocation:     [208]age:    [214]al:"
  51. 490 print"[154]8192  ($2000)    32      24"
  52. 500 print"[154]10240 ($2800)    40      26"
  53. 510 print"[154]12288 ($3600)    48      28"
  54. 520 print"[154]14336 ($4400)    56      30"
  55. 530 print"[154][212]hen just poke 53272,val[154] to see it."
  56. 540 open15,dv,15,"s0:"+fl$:close15
  57. 550 sa=32:ea=40:ifsthensa=40:ea=48
  58. 560 sys57812fl$,dv,0:poke193,0:poke194,sa:poke174,0:poke175,ea:sys62954
  59. 570 gosub830
  60. 580 open15,dv,15:input#15,en$,em$,et$,es$
  61. 590 close15:rw=22:cl=6:gosub920:print"[155][196][207][211] [211]tatus: "en$","em$","et$","es$
  62. 600 rw=23:gosub920:print"[158][208]ress 'fire' to continue...[154]":gosub890:goto150
  63. 610 rem [ load ]
  64. 620 sysmt+6,0,38,0,24,14
  65. 630 rw=1:cl=9:gosub920
  66. 640 q$="[215][207][210][203]":ifsthenq$="[193][213][216]."
  67. 650 print"** [204][207][193][196] "q$" [198][207][206][212] **"
  68. 660 gosub860:sysmt+63,1
  69. 670 sysmt+6,2,36,2,21,15
  70. 680 sysmt+54,"$:f.*",dv,57344
  71. 690 n=f%+1:ifnthen730
  72. 700 gosub830
  73. 710 rw=22:cl=1:gosub920:print"[212]here are no 'f.' files on this disk!"
  74. 720 forp=0to1999:next:gosub830:goto570
  75. 730 sysmt+48,57344
  76. 740 sysmt+60,3,3,19,0,3,3,3,0
  77. 750 fl$=w$:gosub830
  78. 760 rw=22:cl=8:gosub920:print"[204]oad "fl$"? ";
  79. 770 sysmt+66,1,14,1,"y"
  80. 780 ifw$="n"orw$="[206]"then570
  81. 790 rw=22:cl=8:gosub920:print"[159][204]oading "fl$
  82. 800 ad=32:ifsthenad=40
  83. 810 sys57812fl$,dv,0:poke780,0:poke781,0:poke782,ad:sys65493
  84. 820 goto570
  85. 830 rw=22:cl=1:gosub920:print"                                     "
  86. 840 rw=23:gosub920:print"                                     "
  87. 850 return
  88. 860 rw=22:cl=4:gosub920:print"[154]cursor keys: up/down   [[210][197][212][213][210][206]]"
  89. 870 rw=23:gosub920:print"[198]-keys: page up/down   to exit"
  90. 880 return
  91. 890 a=(peek(56320)and16):ifathen890
  92. 900 return
  93. 910 rem [ print at ]
  94. 920 poke214,rw:poke211,cl:sys58732:return
  95. 10000 dv=peek(186):n$="b.font manager"
  96. 10010 open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  97. 40000 fori=0to21:poke828+i,8+i:next
  98. 40010 ifdv<8ordv>29ordv=8then40030
  99. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  100. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  101. 40040 close2:open2,i,2:close2:ifstthen40060
  102. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  103. 40060 next:print"[147]":poke53272,23:poke186,8:end
  104. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  105. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  106. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  107.